home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1996 September / JCSM Shareware Collection (JCS Distribution) (September 1996).ISO / tutorial / trac.zip / FIGIII-8.OBJ < prev    next >
Text File  |  1990-01-25  |  1KB  |  26 lines
  1. 0999          0 0999          0 Origin
  2. 1000          0   OP          0
  3. 1001          0    X          0
  4. 1002          0    Y          0
  5. 1003          0    Z          0
  6. 1004          0               0 Dummy included to reserve read space
  7. 1005          1  ONE          1 Constant one
  8. 1006     401000 STRT     RD  OP Read OP, X, Y
  9. 1007     001000          LD  OP Load OP
  10. 1008     021005          SU ONE Find difference for test
  11. 1009     241013          BNSTOP If < 1 go to halt
  12. 1010     251018          BZ ADD If = 1 go to add routine
  13. 1011     021005          SU ONE If > 1 see if it is 2
  14. 1012     251014          BZ SUB If = 2 go to subtract
  15. 1013     500000 STOP     HT0000 If not stop
  16. 1014     001001  SUB     LD   X Load X
  17. 1015     021002          SU   Y Subtract Y
  18. 1016     031003          ST   Z Store at Z
  19. 1017     261021          BUPRNT Go to print
  20. 1018     001001  ADD     LD   X Load X
  21. 1019     011002          AD   Y Add Y
  22. 1020     031003          ST   Z Store at Z
  23. 1021     411000 PRNT     PC  OP Print
  24. 1022     261006          BUSTRT Go back to start
  25. 9999     001006          ENSTRT End of code with starting location
  26.